home *** CD-ROM | disk | FTP | other *** search
/ Explore Yellowstone / Explore Yellowstone (1997)(The Learning Company)[PC-Mac].iso / mac / ROSTER.DIR / 00035_Script_sc display loop5 < prev    next >
Text File  |  1996-02-29  |  801b  |  22 lines
  1. on mouseDown
  2.   global ThisUser
  3.   if the mouseline > 0 then put the mouseLine into ThisUser 
  4.   put "display loop5 ThisUser:" ThisUser
  5.   if ThisUser > 0 then
  6.     hilite char 1 to 30 of line ThisUser of field "Display"
  7.     put char 1 to 30 of line ThisUser of field "Display" into TextString
  8.     if TextString = EMPTY then   --*** for blank lines at end of roster
  9.       nothing
  10.     else if TextString contains "-----" then
  11.       put TextString into field "EnterText"    
  12.       hilite char 1 to 30 of field "EnterText"    
  13.       set the KeyDownScript to "CheckKey1"
  14.       go to "Loop1"
  15.     else
  16.       put TextString into field "EnterText"    
  17.       hilite char 1 to 30 of field "EnterText"    
  18.       set the KeyDownScript to "CheckKey3"
  19.       go to "Loop3"
  20.     end if    
  21.   end if
  22. end